#!/usr/bin/perl
my %company = (
	'3474' => '3c70436d40463f6a30323c1d1d1d1d5f2443a363189j99_華亞科',
	'4938' => '4c4a436c5e36402256583a1d1d1d1d5f2443a363189j99_和碩',
	'3481' => '4c60426d34363e2438423a1d1d1d1d5f2443a363189j99_群創',
	'2330' => '3c70426c5e46406738583a1d1d1d1d5f2443a363189j99_台積電',	#台積電
	'2303' => '5a70432656463e6952323b1d1d1d1d5f2443a363189j97_聯電', 
	'2357' => '5a7043275a6c3e223c583a1d1d1d1d5f2443a363189j97_華碩',
	'2317' => '3860426b40463e2044323b1d1d1d1d5f24437323189j56_鴻海',
	'2324' => '4c6042273c5c3e6934583a1d1d1d1d5f2443a363189j99_仁寶',
	'2382' => '3c3a446d3c5c3e2438583a1d1d1d1d5f2443a363189j99_廣達',
	'2308' => '3860422938463f6740683a1d1d1d1d5f2443a363189j56_台達電',
	'2325' => '383a446b3846402544423b1d1d1d1d5f2443a363189j56_矽品',
	'2454' => '3c6043295e363f6840323c1d1d1d1d5f2443a363189j99_聯發科',
	'2379' => '624a446d386c3f2238583a1d1d1d1d5f2443a363189j50_瑞昱',	
	'6285' => '44604227386c3e6a52423c1d1d1d1d5f2443a363189j52_啟碁',
	'3380' => '404a446e34363e2438423a1d1d1d1d5f2443a363189j48_明泰',
	'3704' => '4c3a42255e46406738583a1d1d1d1d5f2443a363189j99_合勤',
	'2345' => '5a3a446d5e46406738583a1d1d1d1d5f2443a363189j97_智邦',
	'BRCM' => '444a44275a36402556583a1d1d1d1d5f2443a363189j52_BRCM',
	'QCOM' => '3c70426b5e5c3e2056583a1d1d1d1d5f2443a363189j99_QCOM',
	);
while (my ($key, $value) = each (%company)) {  	
		#print "$key => $value\n";
		@val = split(/_/,$value);
		print "Getting $val[1]\n";
		sleep 5; # Wait 5s, to prevent 104 angry
		system("./proc_company.sh $key $val[0]");
}
